home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 13 / Commodore_Disc_13_19xx_-_de.d64 / red planet main (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  29KB  |  851 lines
  1. 1 goto100
  2. 10 ************************************
  3. 20 ********** the red planet **********
  4. 30 ************************************
  5. 40 * copyright 1986 by dillingersoft **
  6. 50 ************************************
  7. 60 ************************************
  8. 70 *** written by robert dillinger ****
  9. 80 ************************************
  10. 85 ************************************
  11. 90 ************ hauptteil *************
  12. 95 ************************************
  13. 100 rem *******************************
  14. 101 rem *********** anfang ************
  15. 102 rem *******************************
  16. 103 h1=1000:h2=800:h3=700:h4=500:h5=400:h6=300:h7=200:h8=100:h9=50:hz=20
  17. 105 dimf(16)
  18. 110 vic=53248:sid=54272
  19. 130 f(1)=5:f(2)=28:f(3)=31:f(4)=144:f(5)=156:f(6)=158:
  20. 140 f(7)=159:f(8)=129:f(10)=149:f(11)=150:f(12)=151:f(13)=152:f(14)=153:
  21. 150 f(15)=154:f(16)=155
  22. 160 beginn=49152:z1=32768+2040:z2=z1+1:z3=z1+2
  23. 170 z4=z1+3:z5=z1+4:z6=z1+5
  24. 180 z7=z1+6:z8=z1+7
  25. 190 wert=be+21:level=1:lives=3
  26. 200 fa(1)=f(1):fa(2)=f(2)
  27. 210 b2=49250
  28. 220 fr=0
  29. 230 sc=0:pokebe+16+12,0:pokebe+16+13,0:ifflag=5thenflag=0:goto270
  30. 250 goto10000
  31. 270 onlevelgosub1000,6000,7000,8000,9000
  32. 300 rem *******************************
  33. 301 rem ****** maschine aufrufen ******
  34. 302 rem *******************************
  35. 305 sysbeginn
  36. 310 p=peek(wert)
  37. 315 ifp=2thengoto350
  38. 320 ifp=1thengoto400
  39. 325 ifp=3thengoto450
  40. 330 ifp=4thengoto2500
  41. 340 stop
  42. 350 rem *******************************
  43. 351 rem ************ pause ************
  44. 352 rem *******************************
  45. 353 poke198,0:gosub2000:h=1
  46. 355 geta$:ifa$<>""thengoto390
  47. 360 print"";
  48. 365 printchr$(f(h));"pause ";
  49. 370 print"[157][157][157][157][157][157]      ";
  50. 375 printchr$(f(h));"[157][157][157][157][157][157]press ";
  51. 380 printchr$(f(h));"[157][157][157][157][157][157] any  ";
  52. 383 printchr$(f(h));"[157][157][157][157][157][157] key  ";
  53. 385 h=h+1:ifh=17thenh=1
  54. 387 goto355
  55. 390 gosub5340:sysb2:goto310
  56. 400 rem *******************************
  57. 403 rem ********** new game ***********
  58. 405 rem *******************************
  59. 410 gosub2000:pokevic+21,0:goto110
  60. 450 rem *******************************
  61. 455 rem ************ dead *************
  62. 460 rem *******************************
  63. 470 gosub2000
  64. 475 pokevic+21,peek(vic+21)and127
  65. 480 pokevic+14,0
  66. 490 pokevic+15,211
  67. 500 pokevic+29,128:pokevic+30,0
  68. 510 pokez8,136
  69. 550 pokez7,133
  70. 560 gosub2120
  71. 570 pokez7,134
  72. 580 gosub2210
  73. 590 pokez7,135
  74. 600 gosub2310
  75. 605 pokevic+46,15
  76. 610 pokesid+7,0:pokesid+8,5
  77. 615 pokesid+9,0:pokesid+10,10
  78. 620 pokesid+12,3+3*16:pokesid+13,3+3*16
  79. 630 pokesid+11,0:pokesid+24,15
  80. 640 pokevic+21,peek(vic+21)or128
  81. 650 forb=0to210:pokesid+11,65
  82. 670 pokevic+14,b
  83. 680 if(peek(vic+30)and192)=192thenpokevic+12,peek(vic+12)+1
  84. 690 ifpeek(vic+12)=255thengoto720
  85. 700 pokesid+11,64
  86. 710 nextb
  87. 720 pokevic+16,64:pokevic+12,0
  88. 730 forb=0to43:pokesid+11,65
  89. 740 pokevic+14,peek(vic+14)+1
  90. 750 pokevic+12,b
  91. 760 ifpeek(vic+14)=255thengoto790
  92. 770 pokesid+11,64
  93. 780 nextb
  94. 790 pokevic+16,192:pokevic+14,0
  95. 800 forb=0to90:pokesid+11,65
  96. 810 pokevic+14,b
  97. 820 pokevic+12,peek(vic+12)+1
  98. 830 pokesid+11,64
  99. 840 nextb
  100. 900 lives=lives-1:pokevic+21,peek(vic+21)and63
  101. 910 iflives=0thengoto20000
  102. 920 forf=0to14step2:pokevic+f,0:next
  103. 930 pokevic+1,0:pokevic+3,31:pokevic+5,62:pokevic+7,93
  104. 940 pokevic+9,124:pokevic+11,155:pokevic+13,186:pokevic+15,217
  105. 950 goto270
  106. 1000 rem ******************************
  107. 1003 rem ******** erstes bild *********
  108. 1005 rem ******************************
  109. 1010 print"[147]";
  110. 1020 gosub5000
  111. 1030 rem *********** zeiger ***********
  112. 1040 pokez1,138:pokez2,138:pokez3,138
  113. 1050 pokez4,131:pokez5,131:pokez6,131
  114. 1100 rem *********** werte ************
  115. 1110 pokebe+32+12,1
  116. 1120 pokebe+32+5,141:pokebe+32+6,138
  117. 1130 pokebe+4,255
  118. 1140 pokebe+9,20
  119. 1150 pokebe+15,4
  120. 1160 pokebe+17,100
  121. 1170 pokebe+32+13,10
  122. 1180 pokebe+16+4,40
  123. 1190 pokebe+32,11
  124. 1200 pokebe+16+7,20
  125. 1210 pokebe+32+10,10
  126. 1220 pokebe+16+9,60
  127. 1230 pokevic+37,7:pokevic+38,6
  128. 1240 pokevic+39,7:pokevic+40,10:pokevic+41,13
  129. 1250 pokevic+42,3:pokevic+43,3:pokevic+44,3
  130. 1260 pokebe+16+14,5
  131. 1300 print"d[146]   i[146]  j[146]     g[146]     j[146] d[146]  h[146]";
  132. 1310 print"e[146]    gh[146] c[146]    b[146] d[146]   g[146]   h[146] e[146] j[146]   f[146]";
  133. 1320 print"    e[146]  h[146]      g[146]       i[146]  j[146]    i[146]";
  134. 1330 print"    f[146]  e[146]   j[146]  d[146]   jj[146]       h[146]";
  135. 1340 print" c[146]  ef[146] j[146]   j[146]    i[146]    d[146]      a[146]";
  136. 1350 print"i[146]    ge[146]   j[146]  d[146]   f[146]  ji[146]   h[146]   jij[146]";
  137. 1360 print"  ii[146]  g[146]   j[146]   ih[146]  e[146] dij[146]  d[146]  ijji[146]";
  138. 1370 print" jj[146]  iji[146]   h[146]     ig[146] ff[146]  gg[146]  ded[146]";
  139. 1380 print"i[146]  ef[146]  d[146]   ei[146]  j[146]  g[146]   gh[146] eie[146] if[146]";
  140. 1390 print"i[146]  j[146]   iji[146] ef[146]    gh[146]  hd[146]  e[146]  ff[146] d[146]";
  141. 1400 print"   d[146]          e[146]   f[146]    i[146]   e[146]   h[146]";
  142. 1410 print"ij[146]    e[146]   fi[146]  jh[146]     c[146]        b[146]";
  143. 1420 print"      jhji[146] e[146]   dg[146]  hij[146]  h[146]   hij[146]";
  144. 1430 print"  hh[146]   d[146]   ijid[146]   hjjj[146]   ii[146] e[146]";
  145. 1440 printchr$(141);"h[146] ji[146]  h[146] d[146] e[146]   g[146]   ha[146]    g[146]      e[146]";
  146. 1450 print"  hi[146]  ghg[146]  gfg[146]   hij[146]  f[146] g[146]   h[146]";
  147. 1460 printchr$(141);"ij[146]  h[146]    e[146]      hi[146]  ef[146]  fijj[146]  ff[146]";
  148. 1470 print"  d[146]  fe[146]  ji[146]  df[146]  iji[146]  ehe[146]  hie[146]";
  149. 1480 print"g[146]   h[146]   ii[146]      j[146]   ih[146]  e[146]    f[146]";
  150. 1490 printchr$(141);" d[146]   g[146] e[146]  fee[146]  hg[146]   ih[146]df[146]  e[146]  f[146]"
  151. 1500 print"  if[146]   gh[146]   je[146]   gh[146]       hg[146]  jj";
  152. 1510 printchr$(141);"iji[146]  fef[146]  ee[146]  h[146]    dd[146]    h[146]  g[146]";
  153. 1520 print"  hi[146]  gh[146]  ef[146]   f[146]    de[146]  ed[146]  f[146] e[146]";
  154. 1530 printchr$(141);" j[146]   e[146]  hg[146]    gg[146]    ijj[146]   d[146]  e[146] h[146]";
  155. 1540 print"f[146]  hi[146]    i[146]    d[146]    ef[146]     fe[146]";
  156. 1550 printchr$(141);" gg[146]   h[146] ijih[146]  dg[146] hh[146]  ij[146]  e[146] fef[146] d[146]";
  157. 1990 return
  158. 2000 rem ******************************
  159. 2005 rem ***** sound ausschalten ******
  160. 2010 rem ******************************
  161. 2020 forf=sidtosid+24:pokef,0:nextf
  162. 2030 return
  163. 2100 rem ******************************
  164. 2105 rem ********* dead sound *********
  165. 2110 rem ******************************
  166. 2120 rem ******** dead sound i ********
  167. 2130 pokesid+4,128:pokesid+24,15
  168. 2140 pokesid+1,4
  169. 2150 pokesid,0
  170. 2160 pokesid+5,63
  171. 2170 pokesid+6,15
  172. 2180 pokesid+4,129
  173. 2185 forg=1to700:nextg
  174. 2190 return
  175. 2200 rem ******** dead sound ii *******
  176. 2210 pokesid+4,128:pokesid+24,15
  177. 2220 pokesid+1,7
  178. 2230 pokesid,0
  179. 2240 pokesid+5,31
  180. 2250 pokesid+6,15
  181. 2260 pokesid+4,129
  182. 2270 forg=1to600:nextg
  183. 2290 return
  184. 2300 rem ******* dead sound iii *******
  185. 2310 pokesid+4,128:pokesid+24,15
  186. 2320 pokesid+1,12
  187. 2330 pokesid,0
  188. 2340 pokesid+5,12
  189. 2350 pokesid+6,3
  190. 2360 pokesid+4,129
  191. 2370 forg=1to500:nextg
  192. 2390 return
  193. 2500 rem ******************************
  194. 2510 rem *** neuen level einstellen ***
  195. 2520 rem ******************************
  196. 2530 pokevic+21,64:gosub2000
  197. 2540 pokez8,146
  198. 2550 pokevic+14,peek(vic+12)
  199. 2560 pokevic+15,peek(vic+13)+21
  200. 2600 pokesid,0:pokesid+1,255
  201. 2610 pokesid+5,102
  202. 2620 pokesid+6,6
  203. 2630 pokevic+21,192
  204. 2640 pokesid+24,15
  205. 2700 forb=peek(vic+13)to0step-1
  206. 2705 pokez8,147
  207. 2710 pokesid+4,129
  208. 2715 pokez8,146
  209. 2720 pokevic+13,b:pokevic+15,b+21
  210. 2740 pokesid+4,128
  211. 2780 pokez8,148
  212. 2790 nextb
  213. 2800 pokevic+21,0:print"[147]"
  214. 2810 level=level+1
  215. 2820 iflevel=6thengoto4000
  216. 2900 forg=1to70
  217. 2910 printchr$(f(n));"               well done"
  218. 2915 print"  you got nearer to the red planet"
  219. 2920 print"           now get ready for"
  220. 2930 print"                level ";level
  221. 2940 n=n+1
  222. 2950 ifn=16thenn=0
  223. 2960 gosub3730:nextg
  224. 2990 goto270
  225. 3700 rem ******************************
  226. 3710 rem ******** sieger sound ********
  227. 3720 rem ******************************
  228. 3730 ifg<>1thengoto3800
  229. 3740 gosub2000:pokesid+24,15
  230. 3750 pokesid,0:pokesid+5,2
  231. 3760 pokesid+6,4
  232. 3800 pokesid+4,128:pokesid+1,g:pokesid+4,129:return
  233. 4000 rem ******************************
  234. 4010 rem ********* neue runde *********
  235. 4020 rem ******************************
  236. 4100 pokevic+21,0:print"[147]":gosub4700:poke53280,0:print"[147]"
  237. 4110 pokez1,153:pokez2,154:pokez3,155
  238. 4120 pokez4,129:pokez5,156:pokez6,158:pokez7,159
  239. 4130 pl$=""+sp$+"[146]":la=3
  240. 4200 pokevic,49:pokevic+1,180
  241. 4210 pokevic+2,49:pokevic+3,180
  242. 4220 pokevic+4,49:pokevic+5,180
  243. 4230 pokevic+6,241:pokevic+7,100
  244. 4240 pokevic+8,255:pokevic+9,181
  245. 4250 pokevic+10,255:pokevic+11,181
  246. 4260 pokevic+12,255:pokevic+13,181
  247. 4270 pokevic+23,136:pokevic+29,136
  248. 4280 pokevic+14,241:pokevic+15,0:pokevic+28,0
  249. 4300 pokevic+46,1:pokevic+42,7
  250. 4310 pokevic+39,1:pokevic+40,7
  251. 4320 pokevic+41,14:pokevic+44,7
  252. 4330 pokevic+43,1:pokevic+45,10
  253. 4400 print"";pl$;pl$;pl$;pl$;pl$;
  254. 4410 print"[145][145][145][145][145][145] [164] [164][164]  [164][164] [164][164]  [164] [164]  [160][164] [164][164]  [164][164]     [164][164][164]  [164][164]";
  255. 4450 pokesid,0:pokesid+1,255:pokesid+5,85:pokesid+6,8:pokesid+24,la
  256. 4490 pokevic+21,143
  257. 4500 forf=0to160:pokesid+4,129:pokez8,146:pokevic+7,f
  258. 4505 ifint(f/14)=f/14thenla=la+1:pokesid+24,la
  259. 4510 ifflag<>4andf>124thenpokevic+21,peek(vic+21)-128:flag=4
  260. 4520 pokevic+15,f+42:pokesid+4,128:pokez8,147:nextf
  261. 4530 pokevic+21,127
  262. 4540 pokesid,0:pokesid+1,40:pokesid+5,51:pokesid+6,5:h=0
  263. 4550 forg=255to80step-1:pokesid+4,129:h=h+1:ifh=3thenh=0:goto4560
  264. 4555 goto4580
  265. 4560 ifpeek(z5)=156thenpokez5,157:goto4580
  266. 4570 ifpeek(z5)=157thenpokez5,156
  267. 4580 pokevic+8,g:pokevic+10,g:pokevic+12,g
  268. 4590 pokesid+4,128:nextg
  269. 4600 pokesid,0:pokesid+1,50:pokesid+5,58:pokesid+6,49:pokesid+24,15
  270. 4610 print"     [211]";
  271. 4620 pokesid+4,33:forf=1to700:next:pokesid+4,32:forf=1to300:nextf
  272. 4630 print" [211]"
  273. 4640 pokesid+4,33:forf=1to200:nextf:pokesid+4,32:forf=1to200:nextf
  274. 4650 print"      [211]"
  275. 4660 pokesid+4,33:forf=1to600:nextf:pokesid+4,32:forf=1to2000:nextf
  276. 4670 level=1:pokevic+21,0:goto270
  277. 4700 pokesid+5,34:pokesid+6,34:pokesid+24,15:pokesid,0:print""
  278. 4800 forg=1to15step2:poke53280,g:pokesid+1,g:pokesid+4,17
  279. 4805 printchr$(f(g));"           [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  280. 4807 print"           [194]congratulations[194]"
  281. 4808 print"           [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  282. 4810 print:print"    you have reached the red planet[145][145][145][145][145]":pokesid+4,16:nextg
  283. 4820 n=n+1:ifn=3thengoto4850
  284. 4830 print"":goto4800
  285. 4850 h=h+1:print"":n=0:ifh=6thenn=0:h=0:return
  286. 4860 goto4800
  287. 4980 print"";
  288. 4990 stop
  289. 5000 rem ******************************
  290. 5010 rem * grundaufbau des bildschirms*
  291. 5020 rem ******************************
  292. 5090 printchr$(f(14))                                                          
  293. 5100 print"[147]":poke53280,0:poke53281,0
  294. 5110 forf=1to24
  295. 5120 print"                                [194]      [194]";
  296. 5130 nextf
  297. 5140 print"                                [213][195][195][195][195][195][195][201]"
  298. 5150 print"                                [202][195][195][195][195][195][195][203]";
  299. 5155 sc=peek(be+16+12)+256*peek(be+16+13)
  300. 5160 print"score:";
  301. 5165 print"";sc
  302. 5168 print"";chr$(f(14));"[194]"
  303. 5170 pokez7,128:pokez8,130
  304. 5180 pokevic+28,7
  305. 5190 pokebe+32+4,0
  306. 5200 pokebe+16+11,0
  307. 5210 pokebe+32+1,0:pokebe+32+2,0:pokebe+32+3,0
  308. 5230 pokebe+16+5,0:pokevi+30,0
  309. 5240 pokebe+32+7,0:pokebe+32+8,0:pokebe+32+9,0
  310. 5250 pokebe+32+14,0:pokebe+32+15,0:pokebe+48,0
  311. 5260 pokevic+45,7
  312. 5270 pokebe+32+13,0
  313. 5280 pokevic+46,1
  314. 5300 print"level:";
  315. 5310 print"[157][157][157][157][157]";level
  316. 5320 print"lives:";
  317. 5330 print"[157][157][157][157][157]";lives
  318. 5335 gosub5340:goto5400
  319. 5340 print"x[146] 1986";
  320. 5350 print"[157][157][157][157]by";
  321. 5360 print"[157][157][157][157] dill";
  322. 5370 print"[157][157][157][157]inger";
  323. 5380 print"[157][157][157][157][157]soft"
  324. 5390 return
  325. 5400 pokevic+29,0:pokevic+23,0
  326. 5410 pokevic+16,0
  327. 5450 print""
  328. 5900 return
  329. 6000 rem ******************************
  330. 6010 rem ******** zweites bild ********
  331. 6020 rem ******************************
  332. 6030 print"[147]"
  333. 6040 gosub5000
  334. 6100 rem *********** zeiger ***********
  335. 6110 pokez1,139:pokez2,139:pokez3,139
  336. 6120 pokez4,132:pokez5,132:pokez6,132
  337. 6200 rem *********** werte ************
  338. 6210 pokebe+32+12,2
  339. 6220 pokebe+32+5,142:pokebe+32+6,139
  340. 6230 pokebe+4,255
  341. 6240 pokebe+9,10
  342. 6250 pokebe+15,6
  343. 6260 pokebe+17,70
  344. 6270 pokebe+32+13,12
  345. 6280 pokebe+16+4,35
  346. 6290 pokebe+32,10
  347. 6300 pokebe+16+7,15
  348. 6310 pokebe+32+10,15
  349. 6320 pokebe+16+9,30
  350. 6330 pokevic+37,2:pokevic+38,5
  351. 6340 pokevic+39,7:pokevic+40,10:pokevic+41,3
  352. 6350 pokevic+42,14:pokevic+43,14:pokevic+44,14
  353. 6360 pokebe+16+14,10
  354. 6400 print"    f[146]  e[146]   j[146]  d[146]   jj[146]       h[146]";
  355. 6410 print"    e[146]  h[146]      g[146]       i[146]  j[146]    i[146]";
  356. 6420 printchr$(141);"   d[146]          e[146]   f[146]    i[146]   e[146]   h[146]";
  357. 6430 print"       e[146]   fi[146]  jh[146]     c[146]        b[146]";
  358. 6440 print"      jhji[146] e[146]   dg[146]  hij[146]  h[146]   hij[146]";
  359. 6450 print"g[146]   h[146]   ii[146]      j[146]   ih[146]  e[146]    f[146]";
  360. 6460 print" d[146]   g[146] e[146]  fee[146]  hg[146]   ih[146]df[146]  e[146]  f[146]";
  361. 6470 print" j[146]   e[146]  hg[146]    gg[146]    ijj[146]   d[146]  e[146] h[146]";
  362. 6480 print"f[146]  hi[146]    i[146]    d[146]    ef[146]     fe[146]"
  363. 6490 print"  c[146]   g[146]  h[146]   i[146]   e[146]      j[146]    j[146]";
  364. 6500 printchr$(141);"  i[146]       j[146]         d[146]     f[146]";
  365. 6510 print"   e[146] f[146]      hi[146]    jih[146]   df[146]   d[146]";
  366. 6520 printchr$(141);"j[146]   jij[146]  ed[146]    bdej[146]  ded[146] jifdegg[146]";
  367. 6530 print"j[146]    fid[146]   hd[146]    c[146]   hijjfef[146]";
  368. 6540 printchr$(141);"  iefjjd[146]   hih[146]  fhg[146]  dgiji[146]  jij[146]";
  369. 6550 print"a[146]  d[146]  df[146] ghg[146]  ef[146]  de[146]  fdf[146]  ggefh[146]";
  370. 6560 printchr$(141);"    d[146]   ff[146]  hh[146]    j[146]     g[146]  g[146]   e[146]";
  371. 6570 print" ded[146]   df[146]  f[146]   ge[146]      ji[146]    hde[146]";
  372. 6580 printchr$(141);"g[146]    e[146]   d[146]  g[146]     e[146]  g[146]     d[146]   f[146]";
  373. 6590 print"  e[146]   g[146]    h[146]  f[146]   fhf[146]  c[146]   g[146]  f[146]";
  374. 6600 printchr$(141);"h[146]    d[146]     f[146]    d[146]     e[146]    d[146]   e[146]";
  375. 6610 print"  i[146]  ji[146]   gd[146]  ef[146]   dijd[146]    ie[146]  d[146]";
  376. 6620 printchr$(141);"h[146]  d[146]   ij[146]   ei[146]    ie[146]   f[146]  jg[146]  fg[146]";
  377. 6630 print" i[146]   h[146]   gg[146]    hj[146]      eh[146]   g[146] g[146]";
  378. 6640 printchr$(141);"j[146]    e[146]    gi[146]  hi[146]    hd[146]    gf[146] dei[146][145]";
  379. 6990 return
  380. 7000 rem ******************************
  381. 7010 rem ******** drittes bild ********
  382. 7020 rem ******************************
  383. 7030 print"[147]"
  384. 7040 gosub5000
  385. 7100 rem *********** zeiger ***********
  386. 7110 pokez1,140:pokez2,140:pokez3,140
  387. 7120 pokez4,137:pokez5,137:pokez6,137
  388. 7200 rem *********** werte ************
  389. 7210 pokebe+32+12,3
  390. 7220 pokebe+32+5,143:pokebe+32+6,140
  391. 7230 pokebe+4,255
  392. 7240 pokebe+9,10
  393. 7250 pokebe+15,7
  394. 7260 pokebe+17,40
  395. 7270 pokebe+32+13,20
  396. 7280 pokebe+16+4,30
  397. 7290 pokebe+32,9
  398. 7300 pokebe+16+7,13
  399. 7310 pokebe+32+10,20
  400. 7320 pokebe+16+9,20
  401. 7330 pokevic+37,13:pokevic+38,14
  402. 7340 pokevic+39,2:pokevic+40,4:pokevic+41,8
  403. 7350 pokevic+42,15:pokevic+43,15:pokevic+44,15
  404. 7360 pokebe+16+14,15
  405. 7400 print"    f[146]  e[146]   j[146]  d[146]   jj[146]       h[146]";
  406. 7410 print" g[146]     a[146]     f[146]      e[146]      j[146]   e[146]";
  407. 7420 print"   d[146]          e[146]   f[146]    i[146]   e[146]   h[146]";
  408. 7430 print"f[146]  hi[146]    i[146]    d[146]    ef[146]     fe[146]";
  409. 7440 printchr$(141);"j[146]    e[146]    gi[146]  hi[146]    hd[146]    gf[146] dei[146][145]";
  410. 7450 print" h[146]    b[146]     f[146]    d[146]     e[146]    d[146]  e[146]";
  411. 7460 printchr$(141);"  f[146]     i[146]   j[146]    d[146]    b[146]      g[146] j[146]";
  412. 7470 print"i[146]    h[146]     ii[146]    e[146]     g[146]    e[146]";
  413. 7480 printchr$(141);" j[146]   d[146]    j[146]     g[146]  h[146]  f[146] ee[146] f[146]   h[146]";
  414. 7490 print"  j[146]   di[146]    a[146]   d[146]    e[146]   f[146]   f[146] ";
  415. 7500 printchr$(141);"j[146]   f[146]    e[146]     d[146]   i[146]      j[146]    h[146]";
  416. 7510 print"hg[146]      h[146]     d[146]     j[146]   h[146]      j[146]";
  417. 7520 printchr$(141);"d[146]    e[146]     i[146]   kl[146] h[146]     c[146]      j[146]";
  418. 7530 print"  f[146]    j[146]      bmn[146]      f[146]   h[146]";
  419. 7540 printchr$(141);"   j[146]  j[146]      a[146]        j[146]       i[146]";
  420. 7550 print"        ef[146]    hf[146]        b[146]     j[146]";
  421. 7560 printchr$(141);"g[146]      b[146]     d[146]  i[146]           hjij[146]";
  422. 7570 print"     ha[146]    d[146]      h[146]       ehe[146]";
  423. 7580 printchr$(141);"  d[146]      g[146]             e[146]    j[146]";
  424. 7590 print"  de[146]    ij[146]      e[146]       d[146]      f[146]";
  425. 7600 printchr$(141);"fi[146]   e[146]     d[146]     h[146]  h[146] j[146]  g[146]  d[146]  f[146]";
  426. 7610 print"     h[146]  j[146]    ff[146]   g[146]     d[146]     e[146]";
  427. 7620 printchr$(141);"d[146]      hd[146]    e[146]     i[146]     eff[146]   e[146]";
  428. 7630 print"j[146]  g[146]    h[146]   d[146]   f[146]    h[146] gjife[146]";
  429. 7640 printchr$(141);" fg[146]   d[146]  e[146]    d[146]   b[146]  ied[146]  a[146]  edd[146]";
  430. 7990 return
  431. 8000 rem ******************************
  432. 8010 rem ******** viertes bild ********
  433. 8020 rem ******************************
  434. 8030 print"[147]"
  435. 8040 gosub5000
  436. 8100 rem *********** zeiger ***********
  437. 8110 pokez1,144:pokez2,144:pokez3,144
  438. 8120 pokez4,152:pokez5,152:pokez6,152
  439. 8200 rem *********** werte ************
  440. 8210 pokebe+32+12,4
  441. 8220 pokebe+32+5,145:pokebe+32+6,144
  442. 8230 pokebe+4,255
  443. 8240 pokebe+9,10
  444. 8250 pokebe+15,7
  445. 8260 pokebe+17,35
  446. 8270 pokebe+32+13,30
  447. 8280 pokebe+16+4,30
  448. 8290 pokebe+32,9
  449. 8300 pokebe+16+7,13
  450. 8310 pokebe+32+10,10
  451. 8320 pokebe+16+9,13
  452. 8330 pokevic+37,15:pokevic+38,4
  453. 8340 pokevic+39,1:pokevic+40,3:pokevic+41,7
  454. 8350 pokevic+42,1:pokevic+43,1:pokevic+44,1
  455. 8360 pokebe+16+14,20
  456. 8400 print"a[146]    d[146]      e[146]     f[146]    h[146]  e[146]    g[146]";
  457. 8410 print"j[146]   f[146]    i[146]    g[146]   e[146]     d[146]   e[146]";
  458. 8420 print"  b[146]   j[146]    h[146]    e[146]    d[146]    e[146]    e[146]";
  459. 8430 print"  e[146]      d[146]     g[146]    j[146]     f[146]    h[146]";
  460. 8440 printchr$(141);"fg[146]   c[146]     b[146]     f[146]     e[146]  h[146]  g[146]";
  461. 8450 print"  h[146]      i[146]      e[146]    j[146]     f[146]";
  462. 8460 printchr$(141);"  g[146]          f[146]       e[146]      a[146]";
  463. 8470 print" h[146]    ie[146]   f[146]   ed[146]   gf[146]    d[146]    e[146]";
  464. 8480 printchr$(141);"   f[146]      e[146]     e[146]       e[146]    i[146]";
  465. 8490 print" g[146]     h[146]      f[146]     a[146]      c[146]";
  466. 8500 printchr$(141);" e[146]      d[146]      j[146]      e[146]        d[146]";
  467. 8510 print"h[146]    d[146]   e[146]  g[146]  opq[146]   h[146]      f[146]";
  468. 8520 printchr$(141);"  e[146]    gj[146]      rst[146]     d[146]";
  469. 8530 print"      d[146]    je[146]  uvw[146]      efd[146]";
  470. 8540 printchr$(141);"  jf[146]  e[146]      ih[146]    d[146]       h[146] g[146]";
  471. 8550 print"e[146]      d[146]     d[146]        e[146]  e[146]   d[146]";
  472. 8560 printchr$(141);"           e[146]    efd[146]           e[146]";
  473. 8570 print" j[146]  g[146]   e[146]   b[146]      d[146]        e[146]";
  474. 8580 printchr$(141);"h[146]     c[146]     f[146]     i[146]     e[146]     g[146]";
  475. 8590 print"  e[146]       f[146]    d[146]     g[146]    e[146]    g[146]";
  476. 8600 printchr$(141);" b[146]    g[146]  a[146]        fe[146]       d[146]  j[146]";
  477. 8610 print"d[146]     egh[146]   eji[146]        d[146]     e[146]";
  478. 8620 printchr$(141);"   f[146]    e[146]      d[146]     a[146]     f[146]   c[146]";
  479. 8630 print" g[146]     e[146]         d[146]       e[146]";
  480. 8640 printchr$(141);"    d[146]    j[146]  fg[146]      d[146]     b[146]   e[146]";
  481. 8990 return
  482. 9000 rem ******************************
  483. 9010 rem ******* fuenftes bild ********
  484. 9020 rem ******************************
  485. 9030 print"[147]"
  486. 9040 gosub5000
  487. 9100 rem *********** zeiger ***********
  488. 9110 pokez1,150:pokez2,150:pokez3,150
  489. 9120 pokez4,148:pokez5,148:pokez6,148
  490. 9200 rem *********** werte ************
  491. 9210 pokebe+32+12,5
  492. 9220 pokebe+32+5,151:pokebe+32+6,150
  493. 9230 pokebe+4,255
  494. 9240 pokebe+9,10
  495. 9250 pokebe+15,8
  496. 9260 pokebe+17,20
  497. 9270 pokebe+32+13,40
  498. 9280 pokebe+16+4,20
  499. 9290 pokebe+32,8
  500. 9300 pokebe+16+7,10
  501. 9310 pokebe+32+10,7
  502. 9320 pokebe+16+9,7
  503. 9330 pokevic+37,13:pokevic+38,15
  504. 9340 pokevic+39,14:pokevic+40,12:pokevic+41,8
  505. 9350 pokevic+42,7:pokevic+43,7:pokevic+44,7
  506. 9360 pokebe+16+14,25
  507. 9400 print"d[146]       e[146]         j[146]         f[146]";
  508. 9410 print"    b[146]        b[146]     h[146]      e[146]    d[146]";
  509. 9420 print"  h[146]             c[146]            i[146]";
  510. 9430 print"       e[146]      g[146]      e[146]     d[146]  g[146]";
  511. 9440 printchr$(141);" j[146]         g[146]             f[146]   d[146]";
  512. 9450 print"      e[146]     f[146]     h[146]       d[146]   f[146]";
  513. 9460 printchr$(141);"    d[146]  e[146]   b[146]    d[146]     e[146]     d[146]";
  514. 9470 print" d[146]  e[146]  h[146]         a[146]       e[146]     g[146]";
  515. 9480 printchr$(141);"  d[146]          e[146]         d[146]";
  516. 9490 print"a[146]    e[146]     d[146]  e[146]      h[146]     gf[146]";
  517. 9500 printchr$(141);"   d[146]              e[146]       e[146]   d[146]";
  518. 9510 print"    f[146]   e[146]     [173][174][178][176]  f[146]          e[146]";
  519. 9520 printchr$(141);"df[146]    a[146]       [177]  [146][178]     f[146]     dg[146]";
  520. 9530 print"  d[146]       h[146]   [179]  [146][180]       b[146]     g[146]";
  521. 9540 printchr$(141);" g[146]   j[146]     d[146]  [181][182][183][184] g[146]    e[146]     a[146]";
  522. 9550 print"   d[146]    e[146]        e[146]          b[146]";
  523. 9560 printchr$(141);"  d[146]        e[146]        f[146]     g[146]";
  524. 9570 print"d[146]     e[146]      g[146]   h[146]       d[146]";
  525. 9580 printchr$(141);" d[146]       e[146]     e[146]   f[146]       d[146]  e[146]";
  526. 9590 print"   f[146]    a[146]           d[146]  e[146]    f[146]";
  527. 9600 printchr$(141);"  d[146]    f[146]    e[146]    e[146]    d[146]    e[146]   d[146]";
  528. 9610 print"f[146]         g[146]          d[146]        e[146]";
  529. 9620 printchr$(141);" d[146]       e[146]         i[146]      e[146]";
  530. 9630 print"  d[146]       ea[146]  gh[146]        c[146]";
  531. 9640 printchr$(141);"    e[146]    f[146]       g[146]       j[146]     h[146]";
  532. 9990 return
  533. 10000 rem *****************************
  534. 10010 rem ********* titelbild *********
  535. 10020 rem *****************************
  536. 10025 poke198,0:pokevic+21,0:gosub2000
  537. 10030 print"[147]";:poke53280,0:poke53281,0
  538. 10032 sp$="                                        "
  539. 10033 a$(2)=sp$+"[194]f1[194] = spielbeginn    [194]f3[194] = auflistung der feinde    "
  540. 10034 a$(2)=a$(2)+"[194]f5[194] = die 10 besten ergebnisse    [194]f7[194] = information zur "
  541. 10035 a$(2)=a$(2)+"steuerung"+sp$
  542. 10036 a$(1)=sp$+"[213][195][195][201]                  [213][195][195][201]                            "
  543. 10037 a$(1)=a$(1)+"[213][195][195][201]                               [213][195][195][201]                   "
  544. 10038 a$(1)=a$(1)+"         "+sp$
  545. 10039 a$(3)=sp$+"[202][195][195][203]                  [202][195][195][203]                            "
  546. 10040 a$(3)=a$(3)+"[202][195][195][203]                               [202][195][195][203]                   "
  547. 10041 a$(3)=a$(3)+"         "+sp$
  548. 10042 g=1
  549. 10045 printtab(14);chr$(fa(1));"[172][162][162][187][172][187][172][187]":printtab(13);
  550. 10050 printchr$(fa(2));"    [146]";chr$(fa(1));"[190]";chr$(fa(2));" [146]";chr$(fa(1));"[161]";
  551. 10060 printchr$(fa(2));" [146]";chr$(fa(1));"[161]":printtab(13);
  552. 10080 printchr$(fa(2));"   [146]";chr$(fa(1));"[161]";chr$(fa(2));"    ";
  553. 10090 printchr$(fa(1));"[146][161]":printtab(13);
  554. 10110 printchr$(fa(2));"   ";chr$(fa(1));"[146][190] ";
  555. 10120 printchr$(fa(2));" [146]";chr$(fa(1));"[190]";
  556. 10130 printchr$(fa(2));" [146]";chr$(fa(1));"[190]"
  557. 10140 print"";tab(22);chr$(fa(1));"[172][162][162][187]"
  558. 10145 printtab(22);chr$(fa(2));" [162][162][146]";chr$(fa(1));"[190]"
  559. 10150 printtab(22);chr$(fa(2));" [162][162][146]";chr$(fa(1));"[161]"
  560. 10160 printtab(22);chr$(fa(2));"   [146]";chr$(fa(1));"[190]"
  561. 10200 print:printtab(11);chr$(fa(1));"[169]  [206][146]  [169]   [206][146] [169]  [206]"
  562. 10210 printtab(11);chr$(fa(2));"   [146]";chr$(fa(1));" [146]  ";
  563. 10220 printchr$(fa(2));"    [146]";chr$(fa(1));"[169]";
  564. 10230 printchr$(fa(2));"    [146]";chr$(fa(1));"[206][206][146]"
  565. 10240 printtab(11);chr$(fa(2));" [146]";chr$(fa(1));" [146]";
  566. 10250 printchr$(fa(2));" ";chr$(fa(1));" [146]  ";
  567. 10260 printchr$(fa(2));" [146]";chr$(fa(1));"[206]  [206][146] ";
  568. 10270 printchr$(fa(2));" [146]";chr$(fa(1));" [146]";
  569. 10280 printchr$(fa(2));"  ";chr$(fa(1));" [146]"
  570. 10290 printtab(11);chr$(fa(2));"   [146]";chr$(fa(1));"[206][146]  ";
  571. 10300 printchr$(fa(2));"    [146]";chr$(fa(1));"[169] ";
  572. 10310 printchr$(fa(2));" [146]";chr$(fa(1));" [169][146]";
  573. 10320 printchr$(fa(2));" [146]";chr$(fa(1));" [146]"
  574. 10330 printtab(11);chr$(fa(2));" [146]";chr$(fa(1));" [146]";
  575. 10340 printchr$(fa(2));" [146]";chr$(fa(1));"[206][206][146] ";
  576. 10350 printchr$(fa(2));" [146]";chr$(fa(1));"[206]  [206][146] ";
  577. 10360 printchr$(fa(2));" [146]";chr$(fa(1));"[206][146]";
  578. 10370 printchr$(fa(2));"  [146]";chr$(fa(1));"[169]"
  579. 10380 printtab(11);chr$(fa(2));" [146]";chr$(fa(1));"[169] ";
  580. 10390 printchr$(fa(2));" [146]";chr$(fa(1));"[169] ";
  581. 10400 printchr$(fa(2));"    [146]";chr$(fa(1));"[169] ";
  582. 10410 printchr$(fa(2));"   [146]";chr$(fa(1));"[169]":print
  583. 10500 printchr$(fa(1));"[169]    [206][146] [169][206][146]     [169]  [206][146]  [169][206][146]  [169][206][146] [169]    [206][146] [169]    [206][146]";
  584. 10510 printchr$(fa(2));"     [146]";chr$(fa(1));" [146] ";
  585. 10520 printchr$(fa(2));" [146]";chr$(fa(1));" [146]    ";
  586. 10530 printchr$(fa(1));"[169][146]";chr$(fa(2));"   [146]";
  587. 10540 printchr$(fa(1));"[206][206][146] ";chr$(fa(2));" ";
  588. 10550 printchr$(fa(1));" [146]  ";chr$(fa(2));" [146]";
  589. 10560 printchr$(fa(1));" [146] ";chr$(fa(2));"     [146]";
  590. 10570 printchr$(fa(1));"[169] ";chr$(fa(2));"     [146]";
  591. 10580 printchr$(fa(1));"[169]";
  592. 10590 printchr$(fa(2));" [146]";chr$(fa(1));" [146]  ";
  593. 10600 printchr$(fa(2));" [146]";chr$(fa(1));" [146] ";
  594. 10610 printchr$(fa(2));" [146]";chr$(fa(1));" [146]    ";
  595. 10620 printchr$(fa(2));"     [146]";chr$(fa(1));" [146] ";
  596. 10630 printchr$(fa(2));" [146]";chr$(fa(1));"[206][206][146] ";
  597. 10640 printchr$(fa(2));" [146]";chr$(fa(1));" [146] ";
  598. 10650 printchr$(fa(2));" [146]";chr$(fa(1));" [146]       ";
  599. 10660 printchr$(fa(2));" [146]";chr$(fa(1));" [146] "
  600. 10670 printchr$(fa(2));" [146]";chr$(fa(1));"[206]  [146]";
  601. 10680 printchr$(fa(2));" [146]";chr$(fa(1));" [146] ";
  602. 10690 printchr$(fa(2));" [146]";chr$(fa(1));" [146]    ";
  603. 10700 printchr$(fa(2));" [146]";chr$(fa(1));" [146]  ";
  604. 10710 printchr$(fa(2));" [146]";chr$(fa(1));" [146] ";
  605. 10720 printchr$(fa(2));"  [146]";chr$(fa(1));"[206][206][146]";
  606. 10730 printchr$(fa(2));" [146]";chr$(fa(1));" [146] ";
  607. 10740 printchr$(fa(2));" [146]";chr$(fa(1));"[206]   [206][146]   ";
  608. 10750 printchr$(fa(2));" [146]";chr$(fa(1));" [146]"
  609. 10760 printchr$(fa(2));"     [146]";chr$(fa(1));"[169] ";
  610. 10770 printchr$(fa(2));" [146]";chr$(fa(1));" [146]    ";
  611. 10780 printchr$(fa(2));" [146]";chr$(fa(1));"[206]  [146]";
  612. 10790 printchr$(fa(2));" [146]";chr$(fa(1));" [146] ";
  613. 10800 printchr$(fa(2));" [146]";chr$(fa(1));" [146]";
  614. 10810 printchr$(fa(2));" [146]";chr$(fa(1));"[206][146]";
  615. 10815 printchr$(fa(2));" [146]";chr$(fa(1));" [146] ";
  616. 10820 printchr$(fa(2));"     [146]";chr$(fa(1));"[169]   ";
  617. 10830 printchr$(fa(2));" [146]";chr$(fa(1));" [146]"
  618. 10840 printchr$(fa(2));" [146]";chr$(fa(1));" [146]     ";
  619. 10850 printchr$(fa(2));" [146]";chr$(fa(1));" [146]    ";
  620. 10860 printchr$(fa(2));"     [146]";chr$(fa(1));" [146] ";
  621. 10870 printchr$(fa(2));" [146]";chr$(fa(1));" [146] ";
  622. 10880 printchr$(fa(2));"  [146]";chr$(fa(1));" [146] ";
  623. 10890 printchr$(fa(2));" [146]";chr$(fa(1));" [146]       ";
  624. 10900 printchr$(fa(2));" [146]";chr$(fa(1));" [146]"
  625. 10910 printchr$(fa(2));" [146]";chr$(fa(1));" [146]     ";
  626. 10920 printchr$(fa(2));" [146]";chr$(fa(1));"[206]  [206][146] ";
  627. 10930 printchr$(fa(2));" [146]";chr$(fa(1));" [146]  ";
  628. 10940 printchr$(fa(2));" [146]";chr$(fa(1));" [146] ";
  629. 10950 printchr$(fa(2));" [146]";chr$(fa(1));" [146]  ";
  630. 10960 printchr$(fa(2));" [146]";chr$(fa(1));" [146] ";
  631. 10970 printchr$(fa(2));" [146]";chr$(fa(1));"[206]   [206][146]   ";
  632. 10980 printchr$(fa(2));" [146]";chr$(fa(1));" [146]"
  633. 10990 goto12020
  634. 11000 rem *****************************
  635. 11010 rem ******** control info *******
  636. 11020 rem *****************************
  637. 11030 print"[147][154]     [146]      [146]  [146]    [146]      [146]     [146]      [146]  [146]"
  638. 11040 print" [146]      [146]    [146]   [146]   [146]    [146]     [146]  [146]  [146]    [146]  [146]"
  639. 11050 print" [146]      [146]  [146]  [146]  [146]  [146]  [146]    [146]       [146]  [146]  [146]  [146]  [146]"
  640. 11060 print" [146]      [146]    [146]  [146]    [146]    [146]    [146]   [146]  [146]    [146]  [146]"
  641. 11070 print"     [146]      [146]  [146]    [146]    [146]    [146]   [146]      [146]      "
  642. 11200 print"  du benuetzt einen joystick in port 2"
  643. 11210 print"druecke"
  644. 11220 print"      [213][195][195][201]"
  645. 11230 print"      [194]f1[194] um das spiel zu beenden"
  646. 11240 print"      [202][195][195][203]"
  647. 11250 print:print"      [213][195][195][201]"
  648. 11260 print"      [194]f7[194] um eine pause einzulegen"
  649. 11270 print"      [202][195][195][203]"
  650. 11280 print"         druecke die feuertaste"
  651. 11290 print"    um zum titelbild zurueckzukehren[145]"
  652. 11300 poke53280,n:n=n+1:ifn=16thenn=0
  653. 11310 joy=peek(56320)
  654. 11320 if(joyand16)=0thengoto10000
  655. 11900 goto11300
  656. 12000 rem *****************************
  657. 12010 rem ****** titelbild zwei *******
  658. 12020 rem *****************************
  659. 12025 n=0
  660. 12030 printchr$(fa(2));" [146]";chr$(fa(1));"[169]     ";
  661. 12040 printchr$(fa(2));"    [146]";chr$(fa(1));"[169] ";
  662. 12050 printchr$(fa(2));" [146]";chr$(fa(1));"[169]  ";
  663. 12060 printchr$(fa(2));" [146]";chr$(fa(1));"[169] ";
  664. 12070 printchr$(fa(2));" [146]";chr$(fa(1));"[169]  ";
  665. 12080 printchr$(fa(2));" [146]";chr$(fa(1));"[169] ";
  666. 12090 printchr$(fa(2));"     [146]";chr$(fa(1));"[169]   ";
  667. 12100 printchr$(fa(2));" [146]";chr$(fa(1));"[169]"
  668. 12300 print"";
  669. 12310 form=1to3:print"";mid$(a$(m),g,40);:nextm
  670. 12320 g=g+1
  671. 12330 ifg=len(a$(2))theng=1
  672. 12335 print"";
  673. 12340 printchr$(f(n));"            by robert dillinger";
  674. 12350 n=n+1:ifn=16thenn=1
  675. 12360 geta$:ifa$<>""thengoto12400
  676. 12370 goto12300
  677. 12400 rem *****************************
  678. 12410 rem ****** taste gedrueckt ******
  679. 12420 rem *****************************
  680. 12430 ifa$=chr$(133)thenflag=5:goto110
  681. 12440 ifa$=chr$(134)thengoto13000
  682. 12450 ifa$=chr$(135)thengoto14000
  683. 12460 ifa$=chr$(136)thengoto11000
  684. 12470 goto12300
  685. 13000 rem *****************************
  686. 13010 rem *** auflistung der feinde ***
  687. 13020 rem *****************************
  688. 13030 print"[147]";
  689. 13040 pokez1,138:pokez2,139:pokez3,140
  690. 13050 pokez4,144:pokez5,150
  691. 13100 pokevic+37,3:pokevic+38,14
  692. 13110 pokevic+39,7:pokevic+40,1:pokevic+41,10
  693. 13115 pokevic+42,1:pokevic+43,2
  694. 13120 pokevic+23,0:pokevic+29,0
  695. 13200 pokez6,128
  696. 13210 pokevic+44,7
  697. 13310 pokevic+16,0:pokevic+28,31
  698. 13330 pokevic+10,160:pokevic+11,200
  699. 13340 pokevic,100:pokevic+1,70
  700. 13350 pokevic+2,130:pokevic+3,100
  701. 13360 pokevic+4,105:pokevic+5,120
  702. 13370 pokevic+6,90:pokevic+7,150
  703. 13380 pokevic+8,112:pokevic+9,168
  704. 13500 pokevic+21,63
  705. 13600 print"     deine gegner       punkte"
  706. 13610 print"";tab(19);"5 oder 10 punkte"
  707. 13620 print"";tab(18);"10 oder 20 punkte"
  708. 13630 print"";tab(18);"15 oder 30 punkte"
  709. 13640 print"";tab(18);"20 oder 40 punkte"
  710. 13650 print"";tab(18);"25 oder 50 punkte"
  711. 13660 print"";"dein raumschiff[145][145][145][145][145][145][145][145]"
  712. 13700 print"";
  713. 13710 printchr$(f(n));"               druecke f7"
  714. 13720 print"    um zum titelbild zurueckzukommen[145]";
  715. 13730 n=n+1:ifn=16thenn=0
  716. 13740 geta$:ifa$="[136]"thengoto10000
  717. 13750 goto13700
  718. 13900 stop
  719. 14000 rem *****************************
  720. 14010 rem ******** high-scores ********
  721. 14020 rem *****************************
  722. 14030 poke198,0:h=0:n=5:pokevic+21,0:g=0
  723. 14100 print"[147]      die zehn besten ergebnisse :"
  724. 14110 print"      platz 1 :    ";h1
  725. 14120 print"[158]      platz 2 :    ";h2
  726. 14130 print"[129]      platz 3 :    ";h3
  727. 14140 print"[150]      platz 4 :    ";h4
  728. 14150 print"[153]      platz 5 :    ";h5
  729. 14160 print"[159]      platz 6 :    ";h6
  730. 14170 print"[155]      platz 7 :    ";h7
  731. 14180 print"      platz 8 :    ";h8
  732. 14190 print"[154]      platz 9 :    ";h9
  733. 14200 print"[156]      platz 10:    ";hz
  734. 14400 printchr$(f(g));:g=g+1:ifg>=17theng=0
  735. 14405 print"                      [213][195][195][201]"
  736. 14410 print"              druecke [194]f7[194]"
  737. 14420 print"                      [202][195][195][203]"
  738. 14430 print"   um zum titelbild zurueckzugelangen";
  739. 14440 geta$:ifa$=chr$(136)thenflag=0:goto10000
  740. 14500 ifflag=3thengoto14800
  741. 14600 goto14400
  742. 14800 h=h+1:ifh=5thenh=0:goto14850
  743. 14810 goto14400
  744. 14850 ifn=144thenn=5:goto14870
  745. 14860 ifn=5thenn=144
  746. 14870 printla$;chr$(n);"dein ergebnis";
  747. 14900 goto14400
  748. 20000 rem *****************************
  749. 20010 rem ********* game over *********
  750. 20020 rem *****************************
  751. 20030 gosub2000:print"[147]"
  752. 20040 pokevic+21,0
  753. 20050 pokez1,149:pokez2,149:pokez3,149:pokez4,149
  754. 20060 pokez5,149:pokez6,149:pokez7,149:pokez8,149
  755. 20070 pokevic+29,255:pokevic+16,0:pokevic+23,0
  756. 20080 pokevic+28,0:forf=vic+39tovic+46:pokef,1:nextf
  757. 20090 pokevic,140:pokevic+1,49
  758. 20100 pokevic+2,255:pokevic+3,49
  759. 20110 pokevic+4,255:pokevic+5,143
  760. 20120 pokevic+6,255:pokevic+7,237
  761. 20130 pokevic+8,140:pokevic+9,237
  762. 20140 pokevic+10,24:pokevic+11,237
  763. 20150 pokevic+12,24:pokevic+13,143
  764. 20160 pokevic+14,24:pokevic+15,49:goto20190
  765. 20170 pokevic+39,2:pokevic+40,3:pokevic+41,1:pokevic+42,4
  766. 20180 pokevic+43,5:pokevic+44,14:pokevic+45,1:pokevic+46,7:return
  767. 20190 pokesid+24,15:pokesid,0
  768. 20200 pokesid+5,3+3*16:pokesid+6,3
  769. 20300 pokevic+21,255
  770. 21000 pokesid+1,peek(vic+1)-40:pokesid+4,129
  771. 21005 pokevic+1,peek(vic+1)+1
  772. 21010 pokevic+2,peek(vic+2)-1:pokevic+3,peek(vic+3)+1
  773. 21020 pokevic+4,peek(vic+4)-1
  774. 21030 pokevic+6,peek(vic+6)-1:pokevic+7,peek(vic+7)-1
  775. 21040 pokevic+9,peek(vic+9)-1
  776. 21050 pokevic+10,peek(vic+10)+1:pokevic+11,peek(vic+11)-1
  777. 21060 pokevic+12,peek(vic+12)+1
  778. 21070 pokevi+14,peek(vic+14)+1:pokevic+15,peek(vic+15)+1
  779. 21075 ifpeek(vic+1)=165thengoto21200
  780. 21080 pokesid+4,128
  781. 21085 ifpeek(vic+1)=255thenifflag=1thengoto21400
  782. 21090 goto21000
  783. 21200 rem *********** warten **********
  784. 21210 pokesid+5,1+16:pokesid+6,3
  785. 21220 forh=1to15:forf=0to15:pokesid+4,17
  786. 21230 pokevic+39,f:pokevic+41,f:pokevic+42,f
  787. 21240 pokesid+1,int(rnd(1)*256):pokesid+4,16
  788. 21250 nextf:nexth
  789. 21300 gosub20170:flag=1:goto21000
  790. 21400 pokevic+4,peek(vic+4)+1
  791. 21410 pokevic+12,peek(vic+12)-1
  792. 21420 ifpeek(vic+4)=110thengoto21500
  793. 21430 goto21400
  794. 21500 forf=1to22:pokevic+4,peek(vic+4)+1:pokevic+12,peek(vic+12)+1
  795. 21510 nextf
  796. 21600 if sc>hzthengoto24000
  797. 22000 print"[154]                       [213][195][195][201]"
  798. 22010 print"             druecke   [194]f7[194]"
  799. 22020 print"                       [202][195][195][203]"
  800. 22030 print
  801. 22040 print"   [158] um zum titelbild zurueckzukehren":print:print
  802. 22050 print"[153]               oder 'q',":print
  803. 22060 print"[156]      wenn du das programm beenden":print
  804. 22070 print"           und loeschen willst[145]";:poke198,0
  805. 22080 get a$:ifa$="[136]"thengoto10000
  806. 22090 ifa$="q"thensys64738
  807. 22100 goto22080
  808. 22420 rem *****************************
  809. 24000 rem *****************************
  810. 24010 rem * score in highscore-liste **
  811. 24020 rem *****************************
  812. 24030 ifsc>h1thengoto25100
  813. 24040 ifsc>h2thengoto25200
  814. 24050 ifsc>h3thengoto25300
  815. 24060 ifsc>h4thengoto25400
  816. 24070 ifsc>h5thengoto25500
  817. 24080 ifsc>h6thengoto25600
  818. 24090 ifsc>h7thengoto25700
  819. 24100 ifsc>h8thengoto25800
  820. 24110 ifsc>h9thengoto25900
  821. 24120 ifsc>hzthengoto26000
  822. 24200 stop
  823. 25000 rem *****************************
  824. 25010 rem ***** high-scores ordnen ****
  825. 25020 rem *****************************
  826. 25100 hz=h9:h9=h8:h8=h7:h7=h6:h6=h5:h5=h4:h4=h3:h3=h2:h2=h1:h1=sc:la$=""
  827. 25110 goto26100
  828. 25200 hz=h9:h9=h8:h8=h7:h7=h6:h6=h5:h5=h4:h4=h3:h3=h2:h2=sc:la$=""
  829. 25210 goto26100
  830. 25300 hz=h9:h9=h8:h8=h7:h7=h6:h6=h5:h5=h4:h4=h3:h3=sc:la$=""
  831. 25310 goto26100
  832. 25400 hz=h9:h9=h8:h8=h7:h7=h6:h6=h5:h5=h4:h4=sc:la$=""
  833. 25410 goto26100
  834. 25500 hz=h9:h9=h8:h8=h7:h7=h6:h6=h5:h5=sc:la$=""
  835. 25510 goto26100
  836. 25600 hz=h9:h9=h8:h8=h7:h7=h6:h6=sc:la$=""
  837. 25610 goto26100
  838. 25700 hz=h9:h9=h8:h8=h7:h7=sc:la$=""
  839. 25710 goto26100
  840. 25800 hz=h9:h9=h8:h8=sc:la$=""
  841. 25810 goto26100
  842. 25900 hz=h9:h9=sc:la$=""
  843. 25910 goto26100
  844. 26000 hz=sc:la$=""
  845. 26100 pokesid+5,9:pokesid+6,0:pokesid+24,15:pokesid,0
  846. 26105 forg=1to7:pokesid+1,g*10+10:pokesid+4,33:forh=0to15
  847. 26110 printchr$(f(h));"            tolles ergebnis"
  848. 26120 print"du hast eines der zehn besten ergebnisse";
  849. 26200 nexth:pokesid+4,32:nextg
  850. 27000 flag=3:goto14000
  851.